10700 IF SORTARRN#(XX%)<=SORTARRN#(XX%+1) THEN XX%=MX%:GOTO 10630
10710 ON SORTSEC% GOTO 10720,10740,10760
10720 REM SWAP SORTARR#(XX%,1),
RTARR#(XX%+1,1
NK%=0
.CTNSort Section 3 Completed -- Writing Pointer File*Sort Section 1 -- Sorting *2*** DATA FILE EMPTY ****** FILE TOO BIG - 8000 MAX ***Quick In Memory Sort -- Reading File --- PRESS RETURN NOW --- ADD MORE MEMORY TO YOUR COMPUTER. REMOVE SOME MEMORY RESIDENT PROGRAMS, OR AVAILABLE MEMORY. DELETE SOME ACTIVITIES, OR*** YOUR FILE IS TOO BIG TO SORT IN THE ****** NO FILE OF THAT TYPE ON THAT DISK ****** MUST BE A LETTER 'A' THROUGH 'L' ******NO PERIODS ****** TOO LONG ***CKMMCKSORTSXRETURN To PROCEEDX EXIT To The Operating SystemS SORT MenuM MAIN Menu Check NUMBERThis Is The Program To Sort Your Checks By*** NEED DATE IN THE FORM OF 2-15-82 ***ENDING DATE For This Report?STARTING DATE For This Report?*** YOUR DATES NOT FOUND ***:FILEDATE AT LINE NUMBER: *** ERROR NUMBER *** THAT FILE NOT ON THIS DISK ****** CAN'T FIND DRIVE NAME. PUT DISKDRVE ON THIS DISK ****** THAT DRIVE NOT AVAILABLE ****** THAT DRIVE NOT READY ***:*.CDE ARE: YOUR FILES ON ***: *** CAN'T FIND CKNUMBR---REPORT PREPARED--- TOTAL OF ALL CHECKS LESS ALL DEPOSITS = $$######,.## *** TOTAL OF ALL DEPOSITS =(**$#####,.##) TOTAL OF ALL CHECKS = $$######,.##(**$####,.##) $$#####,.## \ \ -######,.# ; \ \- \ \No:######,.# ; TO FOR THE PERIOD OF REPORT OF CHECKS SORTED BY CHECK NUMBER---SORT DONE, NOW WRITING YOUR REPORT---||||||||O:SPCDESC:NEWSORT:ACCTLST--BEGINNING SORT--.NBRReport Saved As DRIVE To Save Your NEW Sorted File?.CDEEXPENSE CATEGORY File Name?*.CKD Are:Your Files On *** FILE NOT FOUND ON THAT DRIVE ***.CKD:RDISK Drive Where You Saved These Checks?.0Checks To Sort By Check NUMBERNAME Of The File Where You Saved The DISKDRVEI
(.txt)